home *** CD-ROM | disk | FTP | other *** search
/ LiquidLibrary 2005 September / LiquidLibrary 2005 Sep - Disc 1.iso / pc / Portfolio Browser / Filters / PDF / LIB / pdf_ops.ps < prev    next >
Text File  |  2003-01-03  |  16KB  |  511 lines
  1. %    Copyright (C) 1994, 2000 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This software is licensed to a single customer by Artifex Software Inc.
  4. % under the terms of a specific OEM agreement.
  5.  
  6. % $RCSfile$ $Revision$
  7. % Definitions for most of the PDF operators.
  8.  
  9. .currentglobal true .setglobal
  10.  
  11. % Define pdfmark.  Don't allow it to be bound in.
  12. % Also don't define it in systemdict, because this leads some Adobe code
  13. % to think this interpreter is a distiller.
  14. % (If this interpreter really is a distiller, don't do this.)
  15. systemdict /pdfmark known not
  16.  { userdict /pdfmark { cleartomark } bind put } if
  17.  
  18. userdict /GS_PDF_ProcSet 127 dict dup begin
  19.  
  20. % ---------------- Abbreviations ---------------- %
  21.  
  22. /bdef { bind def } bind def
  23.  
  24. % ---------------- Graphics state stack ---------------- %
  25.  
  26. % PDF adds a number of parameters to the graphics state.
  27. % We implement this by pushing and popping a dictionary
  28. % each time we do a PDF gsave or grestore.
  29. % The keys in this dictionary are as follows:
  30. %    self            % identifies the dictionary as one of ours
  31. %    ClipRect        % (optional)
  32. %    Show
  33. %    TextSaveMatrix        % matrix at time of BT (iff within BT/ET)
  34. % (The following correspond directly to PDF state parameters.)
  35. %    AlphaIsShape
  36. %    FillConstantAlpha
  37. %    FillColor
  38. %    FillColorSpace
  39. %    FillOverprint
  40. %    SoftMask
  41. %    StrokeConstantAlpha
  42. %    StrokeColor
  43. %    StrokeColorSpace
  44. %    StrokeOverprint
  45. %    TextSpacing
  46. %    TextHScaling
  47. %    Leading
  48. %    TextFont
  49. %    TextLineMatrix
  50. %    TextMatrix
  51. %    TextRise
  52. %    TextRenderingMode
  53. %    WordSpacing
  54.  
  55. /nodict 1 dict def
  56. nodict /self { //nodict } executeonly put
  57. nodict readonly pop
  58.  
  59. /dictbeginpage {    % <initialdict> dictbeginpage -
  60.   //nodict 20 dict .copydict begin { def } forall
  61.   graphicsbeginpage textbeginpage
  62. } bdef
  63. /endpage {    % - endpage -
  64.   showpage end
  65. } bdef
  66.  
  67. /graphicsbeginpage {
  68.   initgraphics
  69.   currentdict /ClipRect .knownget { aload pop rectclip } if
  70.   0 g  0 G  false op  false OP  0 OPM
  71.   1 ca  1 CA  null SMask  false AIS  /Compatible BM  true TK
  72. } bdef
  73.  
  74. /gput        % <value> <key> gput -
  75.  { exch currentdict //nodict eq { /self dup load end 5 dict begin def } if
  76.         % If we're in a Level 1 system, we need to grow the
  77.         % dictionary explicitly.
  78.    currentdict length currentdict maxlength ge %eq
  79.     { currentdict dup length 3 mul 2 idiv 1 add dict .copydict end begin 
  80.     }
  81.    if def
  82.  } bdef
  83.  
  84. /q {
  85.   gsave //nodict begin
  86. } bdef
  87. % Some PDF files have excess Q operators!
  88. /Q {
  89.   currentdict /self .knownget { exec //nodict eq { end grestore } if } if
  90. } bdef
  91.  
  92. % ---------------- Color setting ---------------- %
  93.  
  94. /fcput        % <color> <colorspace> fcput -
  95.  { /FillColorSpace gput /FillColor gput
  96.  } bdef
  97. /scput        % <color> <colorspace> scput -
  98.  { /StrokeColorSpace gput /StrokeColor gput
  99.  } bdef
  100.  
  101. /csdevgray [/DeviceGray] readonly def
  102. /csdevrgb [/DeviceRGB] readonly def
  103. /csdevcmyk [/DeviceCMYK] readonly def
  104. /cspattern [/Pattern] readonly def
  105. /nullpattern1 mark
  106.    /PatternType 1 /PaintType 1 /TilingType 3 /BBox [0 0 0 0]
  107.    /XStep 1 /YStep 1 /PaintProc { }
  108. .dicttomark readonly def
  109. /nullpattern2 nullpattern1 dup length dict copy readonly def
  110.  
  111. % Each entry in the color space dictionary is a procedure of the form
  112. %    <cspace> -proc- <cspace> <initial-color>
  113. /CSdict mark
  114.   /DeviceGray { pop //csdevgray 0 } bind
  115.   /DeviceRGB { pop //csdevrgb [0 0 0] cvx } bind
  116.   /DeviceCMYK { pop //csdevcmyk [0 0 0 1] cvx } bind
  117.   /CIEBasedA { 0 } bind
  118.   /CIEBasedABC { [0 0 0] cvx } bind
  119.   /ICCBased { [ 1 index 1 oget /N get { 0 } repeat ] cvx } bind
  120.   /Separation { 1 } bind
  121.   /DeviceN {    % What is the correct value??
  122.     [ 1 index 1 get length { 1 } repeat ] cvx
  123.   } bind
  124.   /Indexed { 0 } bind
  125.   /Pattern {
  126.     dup type /nametype eq 1 index length 1 eq or {
  127.       pop //cspattern //nullpattern1 matrix makepattern
  128.     } {
  129.       //nullpattern2 matrix makepattern 1 index 1 get csset
  130.         % Stack: patternspace nullpattern basecolor basespace
  131.       pop [ 3 1 roll dup type /arraytype eq { aload pop } if
  132.       counttomark -1 roll ] cvx
  133.     } ifelse
  134.   } bind
  135. .dicttomark readonly def
  136. /csset            % <cspace> csset <color> <cspace>
  137.  { dup dup type /nametype ne { 0 get } if //CSdict exch get exec exch
  138.  } bdef
  139.  
  140. /g { //csdevgray fcput } bdef
  141. /G { //csdevgray scput } bdef
  142. /rg { 3 array astore cvx //csdevrgb fcput } bdef
  143. /RG { 3 array astore cvx //csdevrgb scput } bdef
  144. /k { 4 array astore cvx //csdevcmyk fcput } bdef
  145. /K { 4 array astore cvx //csdevcmyk scput } bdef
  146. /cs { csset fcput } bdef
  147. /CS { csset scput } bdef
  148. /ri { pop } bdef
  149. % We have to break up sc according to the number of operands.
  150. /sc1 { /FillColor gput } bdef
  151. /SC1 { /StrokeColor gput } bdef
  152. % We have to avoid storing into a color array associated with an outer
  153. % gsave level, so we do a kind of "copy on write".
  154. /sc* {
  155.   currentdict /FillColor .knownget {
  156.     astore pop
  157.   } {
  158.     /FillColor load length array astore cvx /FillColor gput
  159.   } ifelse
  160. } bdef
  161. /SC* {
  162.   currentdict /StrokeColor .knownget {
  163.     astore pop
  164.   } {
  165.     /StrokeColor load length array astore cvx /StrokeColor gput
  166.   } ifelse
  167. } bdef
  168.  
  169. % ---------------- Overprint/transparency setting ---------------- %
  170.  
  171. /op { /FillOverprint gput } bdef
  172. /OP { /StrokeOverprint gput } bdef
  173. /OPM {
  174.   /.setoverprintmode where { pop .setoverprintmode } { pop } ifelse
  175. } bdef
  176. /ca { /FillConstantAlpha gput } bdef
  177. /CA { /StrokeConstantAlpha gput } bdef
  178. /SMask { /SoftMask gput } bdef
  179. /AIS { /AlphaIsShape gput } bdef
  180. /BM {
  181.   /.setblendmode where {
  182.     pop [ exch dup type /nametype ne { aload pop } if /Normal ] {
  183.       { .setblendmode } .internalstopped not { exit } if pop
  184.     } forall
  185.   } {
  186.     pop
  187.   } ifelse
  188. } bdef
  189. /TK {
  190.   /.settextknockout where { pop .settextknockout } { pop } ifelse
  191. } bdef
  192.  
  193. % ---------------- Color installation ---------------- %
  194.  
  195. % Establish a given color (and color space) as current.
  196. /.settransparencyparams {    % <alpha> <smask> .settransparencyparams -
  197.   /.begintransparencymask where {
  198.     pop AlphaIsShape {
  199.       1 .setopacityalpha 0 .inittransparencymask exch .setshapealpha 1
  200.     } {
  201.       1 .setshapealpha 1 .inittransparencymask exch .setopacityalpha 0
  202.     } ifelse
  203.     % Set the soft mask by rendering the XObject.  Doing this every time
  204.     % is obviously very inefficient; we'll improve it later.
  205.     .settransparencymask    
  206.   } {
  207.     pop pop
  208.   } ifelse
  209. } bdef
  210. /.settransparencymask {        % <paramdict> <masknum> .settransparencymask -
  211.   exch dup null eq {
  212.     pop .inittransparencymask
  213.   } {
  214.     dup /Draw get exec
  215.   } ifelse
  216. } bdef
  217. % (Non-mask) images must execute setfillblend.
  218. /setfillblend {
  219.   FillOverprint setoverprint
  220.   FillConstantAlpha SoftMask .settransparencyparams
  221. } def
  222. /setfillstate {
  223.   FillColor FillColorSpace setgcolor setfillblend
  224. } def
  225. /setstrokestate {
  226.   StrokeColor StrokeColorSpace setgcolor StrokeOverprint setoverprint
  227.   StrokeConstantAlpha SoftMask .settransparencyparams
  228. } def
  229. /Cdict 15 dict dup begin    % <color...> <colorspace> -proc- -
  230.   /DeviceGray { pop setgray } bdef
  231.   /DeviceRGB { pop setrgbcolor } bdef
  232.   /DeviceCMYK { pop setcmykcolor } bdef
  233.   /CIEBasedA
  234.    { dup currentcolorspace eq { pop } { setcolorspace } ifelse setcolor } bdef
  235.   /CIEBasedABC /CIEBasedA load def
  236.   /CIEBasedDEF /CIEBasedA load def
  237.   /CIEBasedDEFG /CIEBasedA load def
  238.   /ICCBased /CIEBasedA load def
  239.   /Separation /CIEBasedA load def
  240.   /DeviceN /CIEBasedA load def
  241.   /Indexed /CIEBasedA load def
  242.   /Pattern
  243.    { dup currentcolorspace eq { pop } { setcolorspace } ifelse
  244.      dup /Matrix .knownget not { matrix } if
  245.      gsave DefaultMatrix setmatrix makepattern grestore setcolor
  246.    } bdef
  247. end def
  248. /setgcolor    % (null | <color...>) <colorspace> setgcolor -
  249.  { 1 index null eq
  250.     { pop pop }
  251.     { dup 0 get //Cdict exch get exec }
  252.    ifelse
  253.  } bdef
  254. /fsexec        % <fillop|strokeop> fsexec -
  255.  {        % Preserve the current point, if any.
  256.     { currentpoint } stopped
  257.     { $error /newerror false put   cvx exec }
  258.     { 3 -1 roll cvx exec moveto }
  259.    ifelse
  260.  } bdef
  261.  
  262. % ---------------- Path painting and clipping ---------------- %
  263.  
  264. /S { setstrokestate /stroke fsexec } bdef
  265. /f { setfillstate /fill fsexec } bdef
  266. /f* { setfillstate /eofill fsexec } bdef
  267. /n { newpath } bdef        % don't allow n to get bound in
  268. /s { closepath S } bdef
  269. /B { gsave setfillstate fill grestore S } bdef
  270. /b { closepath B } bdef
  271. /B* { gsave setfillstate eofill grestore S } bdef
  272. /b* { closepath B* } bdef
  273.  
  274. % Clipping:
  275.  
  276. /Wdict 4 dict dup begin
  277. /S { gsave setstrokestate stroke grestore n } bdef
  278. /f { gsave setfillstate fill grestore n } bdef
  279. /f* { gsave setfillstate eofill grestore n } bdef
  280. /n { end clip newpath } bdef
  281. end readonly def
  282. /W { //Wdict begin } bdef
  283. /W*dict 4 dict dup begin
  284. Wdict { def } forall
  285. /n { end eoclip newpath } bdef
  286. end readonly def
  287. /W* { //W*dict begin } bdef
  288.  
  289. % ---------------- Text control ---------------- %
  290.  
  291. /textbeginpage
  292.  { /TextSpacing 0 def        % 0 Tc
  293.    /TextLeading 0 def        % 0 TL
  294.    /TextRenderingMode 0 def    % 0 Tr
  295.    /TextRise 0 def        % 0 Ts
  296.    /WordSpacing 0 def        % 0 Tw
  297.    /TextHScaling 1.0 def    % 100 Tz
  298.    /TextFont null def
  299.    /Show { showfirst } def
  300.  } bdef
  301.  
  302. % Contrary to the statement in the PDF manual, BT and ET *can* be nested,
  303. % if the CharProc for a Type 3 font does a BT/ET itself.
  304. % Since we always call the CharProc inside a q/Q, we simply ensure that
  305. % the text state is saved and restored like the rest of the extended
  306. % graphics state.
  307.  
  308. /settextmatrix {
  309.   TextMatrix concat
  310.   TextHScaling 1 ne { TextHScaling 1 scale } if
  311.   TextRise 0 ne { 0 TextRise translate } if
  312.   TextFont dup null eq { pop } { setfont } ifelse
  313. } bdef
  314. /settextstate {
  315.     % The text state can be set even outside BT/ET.
  316.   currentdict /TextSaveMatrix known {
  317.     TextSaveMatrix setmatrix settextmatrix
  318.   } if
  319. } bdef
  320. /settextposition {
  321.         % Update the TextMatrix translation.
  322.   gsave TextSaveMatrix setmatrix
  323.   currentpoint TextMatrix 4 2 getinterval astore pop
  324.         % We would like to do "grestore currentpoint translate"
  325.         % here, but some PDF files set a singular text matrix
  326.         % (0 0 0 0 <x> <y> Tm), so we can't do this.
  327.   TextTempMatrix identmatrix setmatrix currentpoint
  328.   grestore
  329.   TextTempMatrix currentmatrix 4 2 getinterval astore pop
  330.   TextTempMatrix setmatrix
  331. } bdef
  332.  
  333. /BT {
  334.   currentdict /TextLineMatrix .knownget
  335.     { identmatrix pop TextMatrix identmatrix pop }
  336.     { matrix /TextLineMatrix gput matrix /TextMatrix gput }
  337.   ifelse
  338.   { showfirst } /Show gput
  339.   currentdict /TextSaveMatrix .knownget not {
  340.     matrix dup /TextSaveMatrix gput
  341.   } if currentmatrix pop settextmatrix
  342.   matrix /TextTempMatrix gput        % see settextposition
  343. } bdef
  344. /ET {
  345.   TextRenderingMode 4 ge { clip newpath } if
  346.   TextSaveMatrix setmatrix
  347.   currentdict /TextSaveMatrix undef
  348. } bdef
  349. /Tc { /TextSpacing gput { showfirst } /Show gput } bdef
  350. /TL { /TextLeading gput } bdef
  351. /Tr { /TextRenderingMode gput { showfirst } /Show gput } bdef
  352. /Ts { /TextRise gput settextstate } bdef
  353. /Tw { /WordSpacing gput { showfirst } /Show gput } bdef
  354. /Tz { 100 div /TextHScaling gput settextstate} bdef
  355.  
  356. % ---------------- Font control ---------------- %
  357.  
  358. /Tf {        % <font> <scale> Tf -
  359.   dup 1 eq { pop } { scalefont } ifelse
  360.   /TextFont gput settextstate
  361. } bdef
  362.  
  363. % Read a CFF font.
  364. /FRD        % <resname> <file> FRD -
  365.  { /FontSetInit /ProcSet findresource begin true ReadData
  366.  } bdef
  367.  
  368. % Copy a font, removing its FID.  If changed is true, also remove
  369. % the UniqueID and XUID, if any.  If the original dictionary doesn't have
  370. % the keys being removed, don't copy it.
  371. /.copyfontdict        % <font> <changed> .copyfontdict <dict>
  372.  { 1 index /FID known
  373.    1 index { 2 index /UniqueID known or 2 index /XUID known or } if
  374.     {        % We add 1 to the length just in case the original
  375.         % didn't have a FID.
  376.       exch dup length 1 add dict exch
  377.        {        % Stack: changed newfont key value
  378.      1 index /FID eq 4 index
  379.       { 2 index /UniqueID eq or 2 index /XUID eq or }
  380.      if not { 3 copy put } if pop pop
  381.        }
  382.       forall exch
  383.     }
  384.    if pop
  385.  } bdef
  386.  
  387. % Insert a new Encoding or Metrics into a font if necessary.
  388. % Return a possibly updated font, and a flag to indicate whether
  389. % the font was actually copied.
  390. /.updatefontmetrics {    % <font> <Metrics|null> .updatefontmetrics
  391.             %   <font'> <copied>
  392.   dup null ne {
  393.     exch true .copyfontdict dup /Metrics 4 -1 roll put true
  394.   } {
  395.     pop false
  396.   } ifelse
  397. } bdef
  398. /.updatefontencoding {    % <font> <Encoding|null> .updatefontencoding
  399.             %   <font'> <copied>
  400.   dup null ne { dup 2 index /Encoding get ne } { false } ifelse {
  401.     exch false .copyfontdict dup /Encoding 4 -1 roll put true
  402.   } {
  403.     pop false
  404.   } ifelse
  405. } bdef
  406. /.updatefont {        % <font> <Encoding|null> <Metrics|null> .updatefont
  407.             %   <font'> <copied>
  408.   3 -1 roll exch .updatefontmetrics
  409.             % Stack: enc|null font' copied
  410.   3 1 roll exch .updatefontencoding 3 -1 roll or
  411. } bdef
  412.  
  413. % ---------------- Text positioning ---------------- %
  414.  
  415. /Td {
  416.   TextLineMatrix transform TextLineMatrix 4 2 getinterval astore pop
  417.   TextLineMatrix TextMatrix copy pop settextstate
  418. } bdef
  419. /TD { dup neg /TextLeading gput Td } bdef
  420. /T* { 0 TextLeading neg Vexch Td } bdef
  421. /Tm {
  422.   TextLineMatrix astore TextMatrix copy pop settextstate
  423. } bdef
  424.  
  425. % ---------------- Text painting ---------------- %
  426.  
  427. /Vexch {
  428.   rootfont /WMode .knownget { 1 eq { exch } if } if
  429. } bind def
  430.  
  431. /textrenderingprocs [        % (0 is handled specially)
  432.     % Painting-only modes
  433.    { tf } { tS } { tB } { tn }
  434.     % Clipping modes
  435.    { gsave tf grestore tW }
  436.    { gsave tS grestore tW }
  437.    { gsave tB grestore tW }
  438.    { tW }
  439. ] readonly def
  440. /setshowstate
  441.  { WordSpacing 0 eq TextSpacing 0 eq and
  442.     { TextRenderingMode 0 eq
  443.        { { setfillstate show } }
  444.        { { false charpath textrenderingprocs TextRenderingMode get exec } }
  445.       ifelse
  446.     }
  447.     { TextRenderingMode 0 eq
  448.        { WordSpacing 0 eq
  449.           { { setfillstate TextSpacing 0 Vexch 3 -1 roll ashow } }
  450.       { TextSpacing 0 eq
  451.             { { setfillstate WordSpacing 0 Vexch 32 4 -1 roll widthshow } }
  452.             { { setfillstate WordSpacing 0 Vexch 32
  453.                  TextSpacing 0 Vexch 6 -1 roll awidthshow } }
  454.         ifelse
  455.       }
  456.      ifelse
  457.        }
  458.        { { WordSpacing TextSpacing
  459.             % Implement the combination of t3 and false charpath.
  460.             % Note that we must use cshow for this, because we
  461.             % can't parse multi-byte strings any other way.
  462.             % Stack: string xword xchar
  463.         { pop pop (x) dup 0 3 index put false charpath
  464.             % Stack: xword xchar ccode
  465.              3 copy 32 eq { add } { exch pop } ifelse 0 Vexch rmoveto pop
  466.         }
  467.        4 -1 roll cshow pop pop
  468.        textrenderingprocs TextRenderingMode get exec
  469.      }
  470.        }
  471.       ifelse
  472.     }
  473.    ifelse /Show gput
  474.  } bdef
  475. /showfirst { setshowstate Show } def
  476.  
  477. /Tj {
  478.   0 0 moveto Show settextposition
  479. } bdef
  480. /' { T* Tj } bdef
  481. /" { exch Tc exch Tw T* Tj } bdef
  482. /TJ {
  483.   0 0 moveto {
  484.     dup type /stringtype eq {
  485.       Show
  486.     } { -1000 div
  487.       currentfont /ScaleMatrix .knownget { 0 get mul } if
  488.       0 Vexch rmoveto
  489.     } ifelse
  490.   } forall settextposition
  491. } bdef
  492.  
  493. /tf { setfillstate currentpoint fill moveto } bdef
  494. /tn { currentpoint newpath moveto } bdef
  495. % For stroking characters, temporarily restore the graphics CTM so that
  496. % the line width will be transformed properly.
  497. /Tmatrix matrix def
  498. /tS
  499.  { setstrokestate
  500.    currentpoint //Tmatrix currentmatrix TextSaveMatrix setmatrix stroke
  501.    setmatrix moveto
  502.  } bdef
  503. /tB { gsave tf grestore tS } bdef
  504. % This does the wrong thing if there have been multiple text operations
  505. % within a single BT/ET pair, but it's a start.
  506. /tW { } bdef
  507.  
  508. end readonly put        % GS_PDF_ProcSet
  509.  
  510. .setglobal
  511.